home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / Lang / Nano.lha / nano / prog / circle.n < prev    next >
Encoding:
Text File  |  2002-07-23  |  277 b   |  17 lines
  1. #include <math.h>
  2.  
  3. double d; double c;
  4. string inp[80];
  5.  
  6. print /n;
  7. print "RETURN to exit", /n2;
  8. inp = " ";
  9. while inp != "";
  10.     input "diameter:        " inp;
  11.     if inp != "";
  12.         val d inp;
  13.         c = M_PI * d;
  14.         print "circumference:   ", c, /n2;
  15.     endif;
  16. wend;
  17.